home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 July / 07_02.iso / software / xq-xsetup / files / setup.exe / {app} / plugins / XQ Show On Desktop 3.xpl < prev    next >
Text File  |  2002-04-12  |  2KB  |  80 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH"="Appearance\Desktop\Icons\Visible Icons"
  5. "NAME"="Internet Explorer Other Icons"
  6. "LANGUAGE"="VBScript"
  7. "VERSION"="2.53"
  8. "TEXT 1"="Internet Explorer History" 
  9. "TEXT 2"="Temporary Internet Files (Disk Cache)"
  10. "DESCRIPTION 1"="To show an item on the desktop, activate it. To hide it, deactivate it."
  11. "DESCRIPTION 2"="In order to activate the changes, it may be necessary to refresh the Desktop or to press the F5 Key."
  12. "DESCRIPTION 3"="Note: These options do not work with Internet Explorer 6."
  13. "AUTHOR"="Xteq Systems"
  14. "CONTACTURL"="http://www.xteq.com"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"=" "
  17. "COMMENT 2"="Thanks to Siegfried Burgstedt for his fix!"
  18.  
  19.  
  20.  
  21.  
  22. '******************************************************************
  23. '***                MASTER TEMPLATE (1 of X)                   ****
  24. '******************************************************************
  25. sVals=Array("{FF393560-C2A7-11CF-BFF4-444553540000}","{7BD29E00-76C1-11CF-9DD0-00A0C9034933}")
  26. '******************************************************************
  27. '*** Keep an eye on the order (must be the same as "TEXT x") ! ****
  28. '******************************************************************
  29. sPath="HKLM\Software\Microsoft\Windows\CurrentVersion\Explorer\Desktop\NameSpace\"
  30. sIE="HKLM\Software\Microsoft\Internet Explorer\Version"
  31.  
  32.  
  33.  
  34. Sub Plugin_Initialize
  35.  ' Neil's magical IE version checking code!
  36.  v=RegReadValue(sIE)
  37.  if v>"6" then
  38.   Call Disable()
  39.  end if
  40.  
  41.  for i=0 to GetUIElementsCount-1
  42.      s=sPath & sVals(i)
  43.  
  44.      if RegPathExists(s) then SetUIElement i+1,true
  45.  next 
  46. End Sub
  47.  
  48. Sub Plugin_CheckData(ElementIndex)
  49. End Sub
  50.  
  51. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  52.  for i=0 to GetUIElementsCount-1
  53.      b=GetUIElement(i+1)
  54.      s=sPath & sVals(i)
  55.  
  56.      if b=true then
  57.         Call RegWriteValue(s & "\@","",1)
  58.      else
  59.  
  60.         if RegPathExists(s) then
  61.            if RegValueExists(s & "\Removal Message") then
  62.               Call RegDeleteValue(s & "\Removal Message")
  63.            end if
  64.            
  65.            'finally delete the path 
  66.            Call RegDeletePath(s)
  67.        end if
  68.      end if
  69.  next 
  70.  
  71.  Call IndicateSettingChange()
  72. End Sub
  73.  
  74.  
  75. Sub Plugin_Terminate 
  76. End Sub
  77.  
  78.  
  79.  
  80.